home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Ken Long / Polygondrian-c / Extra demos / beams how next >
Encoding:
Text File  |  1994-12-04  |  449 b   |  22 lines  |  [TEXT/KAHL]
  1.     poly = OpenPoly ();
  2.  
  3.     start_H = screenBits.bounds.right / 2;
  4.     start_V = 0;
  5.     
  6.     //• A line from here.
  7.     MoveTo (start_H, start_V);        
  8.  
  9.     //• To here.
  10.     LineTo (The_Ramdominator (0,
  11.             screenBits.bounds.right),    //• Anywhere between right and 0.
  12.             screenBits.bounds.bottom);    //• Bottom only.
  13.  
  14.     //• To here.
  15.     LineTo (The_Ramdominator (0,
  16.             screenBits.bounds.right),
  17.             screenBits.bounds.bottom);
  18.  
  19.     //• And back.
  20.     LineTo (start_H, start_V);
  21.  
  22.     ClosePoly ();